<%
Function GetCounterHit(ByVal WhatSection)
	'on error resume next 
	set fso = createobject("scripting.filesystemobject")
	set act = fso.opentextfile(server.mappath("stats/"&WhatSection&".txt"))
	counter = clng(act.readline)
	counter = counter + 1
	act.close
	Set act = fso.CreateTextFile(server.mappath("stats/"&WhatSection&".txt"), true)	
	act.WriteLine(counter)
	act.Close
	GetCounterHit = counter
End Function
%>